home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hottest 6
/
Hottest 6 (1996)(PDSoft)[!].iso
/
software
/
videoutils
/
a-g
/
ami2d
/
macros
/
genquad8.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1978-11-24
|
1KB
|
59 lines
/* script to generate quad8's using existing nodes */
options results
address ami2d
if ~show('l', "rexxmathlib.library") then do
check = addlib('rexxmathlib.library',0,-30,0)
end
'info'
parse var result nnodes nelems nbcs
do n=1 to 3
'info(node)'
fn = result
parse var fn nd in junk
if in = 0 then exit
do m=1 to n-1
if in < i.m then do
do j=n-1 to m by -1
j1 = j+1
f.j1 = f.j
i.j1 = i.j
end
leave
end
end
f.m = fn
i.m = in
end
parse var f.1 nd i1a x1a y1a
parse var f.2 nd i1b x1b y1b
parse var f.3 nd i2b x2b y2b
ni = i1b - i1a
'get inodes'
if length(result) > 0 then in = result%1 - 1
else in = ni
nj = (i2b - i1b)/(in + 1)
'get jnodes'
if length(result) > 0 then jn = result%1 - 1
else jn = nj
'get material'
if length(result) > 0 then mid = result%1
else mid = 1
do j=1 to nj by 2
do i=1 to ni by 2
n = i1a + (j - 1)*(in + 1) + i - 1
p = i1a + j*(in + 1) + i - 1
m = i1a + (j + 1)*(in + 1) + i - 1
'quad8(0,'mid','n','n + 2','m + 2','m','n + 1','p + 2','m + 1','p')'
end
end
exit